home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / M2I5_76.lha / M2I5_76 / Rexx / Move.M2I < prev    next >
Encoding:
Text File  |  1998-03-24  |  219 b   |  20 lines
  1. /* Get mouse and move selected window */
  2.  
  3. ADDRESS "M2IPort.Rexx"
  4. OPTIONS RESULTS
  5.  
  6. LASTSELECTPATH
  7. IF RC~=0 THEN EXIT
  8. DRAWER=RESULT
  9.  
  10. GETMOUSE "X"
  11. X=RESULT
  12.  
  13. GETMOUSE "Y"
  14. Y=RESULT
  15.  
  16. SET XPOS X DRAWER
  17. SET YPOS Y DRAWER
  18.  
  19. EXIT
  20.